传世单机首发自创神兵和自创宝甲脚本

335;太虚神符;46;0;1;0;0;0;8125;100;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;40000;5;0
336;太乙神符;46;0;1;0;0;0;8126;100;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;40000;5;0
4449;上古七彩石;46;1;1;0;0;0;8123;1;0;0;0;0;0;0;0;0;0;0;0;0;1;5;;;;;;;;;;;;;;;;;
4450;千年寒铁;46;5;1;222;0;0;8128;1;0;0;0;0;0;0;0;0;0;0;0;0;1;5;;;;;;;;;;;;;;;;;
4451;紫金玄铁;46;5;1;222;0;0;8129;1;0;0;0;0;0;0;0;0;0;0;0;0;1;5;;;;;;;;;;;;;;;;;
4452;赤炎神铁;46;5;1;222;0;0;8127;1;0;0;0;0;0;0;0;0;0;0;0;0;1;5;;;;;;;;;;;;;;;;;
4453;上古琉璃石;46;1;1;0;0;0;8123;1;0;0;0;0;0;0;0;0;0;0;0;0;1;5;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0
4454;雪蚕丝;46;5;1;222;0;0;8128;1;0;0;0;0;0;0;0;0;0;0;0;0;1;5;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0
4455;火蛛丝;46;5;1;222;0;0;8129;1;0;0;0;0;0;0;0;0;0;0;0;0;1;5;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0;0

彩虹0618以上YQ支持
完善了衣服和武器的自创 命名 强化

[@main]
天地始，万物开，自有神通；星辰变，轮回转，当寻大道；无\
上妙义，是为法则\
金石为刃，断玉开山，终为下品；\
神通加之，呼风唤雨，已为灵秀；\
天地法则加之，移山填海，神鬼用命，莫有不能，此等神兵，\
是为绝品。\
<绝世神兵介绍/@jieshao> <法则之力打造绝世神兵/@打造神>\
<绝世宝甲介绍/@jieshao> <法则之力打造绝世宝甲/@打造甲>\

[@打造神]
绝世神兵乃是融入天地法则的至高兵器，绝世神兵有独一无二\
的名字，有唯一的主人。\
<战士/@@makezhanshicustom>　　<法师/@@makefashicustom>　　 <道士/@@makedaoshicustom>　　 <妖士/@@makeyaoshicustom> \
<重新命名绝世神兵/@@changecustomname>　　 <强化绝世神兵属性/@@strengthencustom>　　 <武器升级绝世神兵/@@upgradecustomname>\

[@打造甲]
绝世宝甲乃是融入天地法则的至高宝甲，绝世宝甲有独一无二\
的名字，有唯一的主人。\
<战士宝甲/@@makezhanshiclothes>　　 <法师宝甲/@@makefashiclothes>　　 <道士宝甲/@@makedaoshiclothes>　　 <妖士宝甲/@@makeyaoshiclothes>\
<重新命名绝世宝甲/@@changeclothesname>　　 <强化绝世宝甲属性/@@strengthenclothes> 　　<衣服升级绝世神衣/@@upgradeclothes>\

[@jieshao]
绝世神兵乃是融入天地法则的至高兵器，绝世神兵有独一无二\
的名字，有唯一的主人。\
<绝世神兵属性介绍/@jieshao_shuxing>\
<如何打造绝世神兵/@jieshao_dazao>\
<如何重新命名绝世神兵/@jieshao_rename>\
<如何强化绝世神兵/@jieshao_strengthen>\
<返回/@main>\

[@jieshao_shuxing]
绝世神兵有三种属性：基础属性，减防属性和暴击属性。\
基础属性：攻击50-100（战士）、魔法40-70（法师）、\
道术50-80（道士）、幸运7\
减防属性：无视对方物理或魔法防御10点\
暴击属性：暴走模式下，每次攻击100%暴击。\
<返回/@jieshao> <下一页/@nextpage>\

[@nextpage]
暴走模式：装备武器后，界面会显示武器神力值。\ 神力值每分钟增长3点，共100点。当神力值达到\ 100点后，武器进入暴走模式。\ 暴走模式下，每次攻击会消耗神力值，当神力值\ 不足以维持下次攻击时，退出暴走模式。\<返回/@jieshao>\?

[@jieshao_dazao]
打造绝世神兵，需要将一把兵器放入炉中，用一块上古七彩\石加以熔炼，并为兵器附上自己独一无二的名字，即可打造\绝世神兵。\<返回/@jieshao>\
[@jieshao_rename]
绝世神兵可以重新命名，神兵主人在归元一气炉处，使用太\乙神符，即可将神兵重新命名。\<返回/@jieshao>\

[@jieshao_strengthen]
绝世神兵三种属性，需要用不同的材料加以强化。\
千年寒铁用于强化基础属性，每次强化攻击+1。\
紫金玄铁用于强化减防属性，每次强化无视防御属性+2。\
赤炎神铁用于强化暴击属性，每强化10次，属性提升一档。\
三种属性强化初始消耗均为10个对应材料，每强化10次，消\
耗的材料增加10个。三种属性均可强化100次。\
<返回/@jieshao>\

[@神兵打造]
#IF
EQUAL $PARAM(0) 1
#ACT
GOTO @打造神兵88
#IF
EQUAL $PARAM(0) 2
#ACT
GOTO @强化神兵88
#IF
EQUAL $PARAM(0) 3
#ACT
GOTO @命名神兵88
#IF
EQUAL $PARAM(0) 4
#ACT
GOTO @升级神兵88

[@命名神兵88]

#IF
EQUAL $ITEMINFO[$PARAM(1)].Stdmode 5
#ACT
GOTO @武器命名
#ELSEACT
GOTO @衣服命名

[@武器命名]
#IF
!EQUAL $ITEMINFO[$PARAM(2)].NAME 太乙神符
#ACT
Sendmsg 5 你放入的材料错误，请放入太乙神符
break
#IF
EQUAL $ITEMINFO[$PARAM(1)].GODITEM.GOD 0
#ACT
SENDMSG 5 你放入的不是神器，打造之后再来
break
#IF
Random 1
#ACT
MOV D10 $ITEMINFO[$PARAM(1)].GODITEM.Job
MOV D11 $ITEMINFO[$PARAM(1)].GODITEM.MinDC
MOV D12 $ITEMINFO[$PARAM(1)].GODITEM.MaxDC
MOV D13 $ITEMINFO[$PARAM(1)].GODITEM.ReduceAC
MOV D14 $ITEMINFO[$PARAM(1)].GODITEM.ReduceMAC
MOV D15 $ITEMINFO[$PARAM(1)].GODITEM.UseVal
MOV D16 $ITEMINFO[$PARAM(1)].GODITEM.Ruler
takem $PARAM(2)
UPGRADEUSERITEM $PARAM(1) 156 = $STR(D10)
UPGRADEUSERITEM $PARAM(1) 157 = $PARAM(3)
UPGRADEUSERITEM $PARAM(1) 158 = $USERNAME
UPGRADEUSERITEM $PARAM(1) 159 = $STR(D11)
UPGRADEUSERITEM $PARAM(1) 160 = $STR(D12)
UPGRADEUSERITEM $PARAM(1) 161 = $STR(D13)
UPGRADEUSERITEM $PARAM(1) 162 = $STR(D14)
UPGRADEUSERITEM $PARAM(1) 163 = $STR(D15)
UPGRADEUSERITEM $PARAM(1) 164 = $STR(D16)

[@衣服命名]
#IF
!EQUAL $ITEMINFO[$PARAM(2)].NAME 太虚神符
#ACT
Sendmsg 5 你放入的材料错误，请放入太虚神符
break
#IF
EQUAL $ITEMINFO[$PARAM(1)].GODITEM.GOD 0
#ACT
SENDMSG 5 你放入的不是神甲，打造之后再来
break
#IF
Random 1
#ACT
MOV D10 $ITEMINFO[$PARAM(1)].GODITEM.Job
MOV D11 $ITEMINFO[$PARAM(1)].GODITEM.MinDC
MOV D12 $ITEMINFO[$PARAM(1)].GODITEM.MaxDC
MOV D13 $ITEMINFO[$PARAM(1)].GODITEM.ReduceAC
MOV D14 $ITEMINFO[$PARAM(1)].GODITEM.ReduceMAC
MOV D15 $ITEMINFO[$PARAM(1)].GODITEM.UseVal
MOV D16 $ITEMINFO[$PARAM(1)].GODITEM.Ruler
takem $PARAM(2)
UPGRADEUSERITEM $PARAM(1) 156 = $STR(D10)
UPGRADEUSERITEM $PARAM(1) 157 = $PARAM(3)
UPGRADEUSERITEM $PARAM(1) 158 = $USERNAME
UPGRADEUSERITEM $PARAM(1) 159 = $STR(D11)
UPGRADEUSERITEM $PARAM(1) 160 = $STR(D12)
UPGRADEUSERITEM $PARAM(1) 161 = $STR(D13)
UPGRADEUSERITEM $PARAM(1) 162 = $STR(D14)
UPGRADEUSERITEM $PARAM(1) 163 = $STR(D15)
UPGRADEUSERITEM $PARAM(1) 164 = $STR(D16)

[@打造神兵88]

#IF
EQUAL $ITEMINFO[$PARAM(1)].Stdmode 5
#ACT
GOTO @武器打造
#ELSEACT
GOTO @衣服打造

[@武器打造]
#IF
!EQUAL $ITEMINFO[$PARAM(2)].NAME 上古七彩石
#ACT
Sendmsg 5 你放入的材料错误，请放入上古七彩石
break

#IF
EQUAL GODITEM.GOD 0
#ACT
Sendmsg 5 绝世神兵不可继续打造，请使用强化功能强化神兵
BREAK
#IF
EQUAL $PARAM(4) 0
#ACT
MOV D10 0
MOV D11 $ITEMINFO[$PARAM(1)].DC
INC D11 50
MOV D12 $ITEMINFO[$PARAM(1)].DC2
INC D12 100
MOV D13 10
MOV D14 20
#IF
EQUAL $PARAM(4) 1
#ACT
MOV D10 1
MOV D11 $ITEMINFO[$PARAM(1)].MC
INC D11 40
MOV D12 $ITEMINFO[$PARAM(1)].MC2
INC D12 70
MOV D13 10
MOV D14 20
#IF
EQUAL $PARAM(4) 2
#ACT
MOV D10 2
MOV D11 $ITEMINFO[$PARAM(1)].SC
INC D11 50
MOV D12 $ITEMINFO[$PARAM(1)].SC2
INC D12 80
MOV D13 10
MOV D14 20
#IF
EQUAL $PARAM(4) 3
#ACT
MOV D10 3
MOV D11 $ITEMINFO[$PARAM(1)].GC
INC D11 50
MOV D12 $ITEMINFO[$PARAM(1)].GC2
INC D12 100
MOV D13 10
MOV D14 20
#IF
LARGE $RulerLevel 0
#ACT
takem $PARAM(2)
UPGRADEUSERITEM $PARAM(1) 156 = $STR(D10)
UPGRADEUSERITEM $PARAM(1) 157 = $PARAM(3)
UPGRADEUSERITEM $PARAM(1) 158 = $USERNAME
UPGRADEUSERITEM $PARAM(1) 159 = $STR(D11)
UPGRADEUSERITEM $PARAM(1) 160 = $STR(D12)
UPGRADEUSERITEM $PARAM(1) 161 = $STR(D13)
UPGRADEUSERITEM $PARAM(1) 162 = $STR(D13)
UPGRADEUSERITEM $PARAM(1) 163 = $STR(D14)
UPGRADEUSERITEM $PARAM(1) 6 = 7 ;--幸运
UPGRADEUSERITEM $PARAM(1) 164 = 1
Sendmsg 22 恭喜玩家-%s成功开启归元一气炉，引动天地法则，打造出绝世神兵
break
#ELSEACT
takem $PARAM(2)
UPGRADEUSERITEM $PARAM(1) 156 = $STR(D10)
UPGRADEUSERITEM $PARAM(1) 157 = $PARAM(3)
UPGRADEUSERITEM $PARAM(1) 158 = $USERNAME
UPGRADEUSERITEM $PARAM(1) 159 = $STR(D11)
UPGRADEUSERITEM $PARAM(1) 160 = $STR(D12)
UPGRADEUSERITEM $PARAM(1) 161 = $STR(D13)
UPGRADEUSERITEM $PARAM(1) 162 = $STR(D13)
UPGRADEUSERITEM $PARAM(1) 163 = $STR(D14)
UPGRADEUSERITEM $PARAM(1) 6 = 7 ;--幸运
Sendmsg 22 恭喜玩家-%s成功开启归元一气炉，引动天地法则，打造出绝世神兵

[@衣服打造]
#IF
!EQUAL $ITEMINFO[$PARAM(2)].NAME 上古琉璃石
#ACT
Sendmsg 5 你放入的材料错误，请放入上古琉璃石
break

#IF
EQUAL GODITEM.GOD 0
#ACT
Sendmsg 5 绝世神兵不可继续打造，请使用强化功能强化神兵
BREAK
#IF
EQUAL $PARAM(4) 0
#ACT
MOV D10 0
MOV D11 $ITEMINFO[$PARAM(1)].DC
INC D11 20
MOV D12 $ITEMINFO[$PARAM(1)].DC2
INC D12 40
MOV D13 $ITEMINFO[$PARAM(1)].AC2
INC D13 28
MOV D15 $ITEMINFO[$PARAM(1)].MAC2
INC D15 22
MOV D14 5
#IF
EQUAL $PARAM(4) 1
#ACT
MOV D10 1
MOV D11 $ITEMINFO[$PARAM(1)].MC
INC D11 20
MOV D12 $ITEMINFO[$PARAM(1)].MC2
INC D12 44
MOV D13 $ITEMINFO[$PARAM(1)].AC2
INC D13 27
MOV D15 $ITEMINFO[$PARAM(1)].MAC2
INC D15 24
MOV D14 5
#IF
EQUAL $PARAM(4) 2
#ACT
MOV D10 2
MOV D11 $ITEMINFO[$PARAM(1)].SC
INC D11 20
MOV D12 $ITEMINFO[$PARAM(1)].SC2
INC D12 42
MOV D13 $ITEMINFO[$PARAM(1)].AC2
INC D13 30
MOV D15 $ITEMINFO[$PARAM(1)].MAC2
INC D15 22
MOV D14 5
#IF
EQUAL $PARAM(4) 3
#ACT
MOV D10 3
MOV D11 $ITEMINFO[$PARAM(1)].GC
INC D11 20
MOV D12 $ITEMINFO[$PARAM(1)].GC2
INC D12 30
MOV D13 $ITEMINFO[$PARAM(1)].AC2
INC D13 28
MOV D15 $ITEMINFO[$PARAM(1)].MAC2
INC D15 22
MOV D14 5
#IF
Random 1
#ACT
takem $PARAM(2)
UPGRADEUSERITEM $PARAM(1) 156 = $STR(D10)
UPGRADEUSERITEM $PARAM(1) 157 = $PARAM(3)
UPGRADEUSERITEM $PARAM(1) 158 = $USERNAME
UPGRADEUSERITEM $PARAM(1) 159 = $STR(D11)
UPGRADEUSERITEM $PARAM(1) 160 = $STR(D12)
UPGRADEUSERITEM $PARAM(1) 161 = $STR(D13)
UPGRADEUSERITEM $PARAM(1) 162 = $STR(D15)
UPGRADEUSERITEM $PARAM(1) 163 = $STR(D14)
Sendmsg 22 恭喜玩家-%s成功开启归元一气炉，引动天地法则，打造出绝世神甲
break

[@强化神兵88]
#IF
EQUAL $ITEMINFO[$PARAM(1)].GODITEM.GOD 0
#ACT
SENDMSG 5 你放入的不是神器，请打造之后再来强化
break
#IF
EQUAL $ITEMINFO[$PARAM(1)].Stdmode 5
#ACT
GOTO @强化武器
#ELSEACT
GOTO @强化衣服

[@强化武器]
#IF
EQUAL $ITEMINFO[$PARAM(2)].NAME 千年寒铁
#ACT
GOTO @千年寒铁
#IF
EQUAL $ITEMINFO[$PARAM(2)].NAME 紫金玄铁
#ACT
GOTO @紫金玄铁
#IF
EQUAL $ITEMINFO[$PARAM(2)].NAME 赤炎神铁
#ACT
GOTO @赤炎神铁
#ELSEACT
SENDMSG 5 请放入对应材料

[@强化衣服]
#IF
EQUAL $ITEMINFO[$PARAM(2)].NAME 雪蚕丝
#ACT
GOTO @雪蚕丝
#IF
EQUAL $ITEMINFO[$PARAM(2)].NAME 火蛛丝
#ACT
GOTO @火蛛丝
#ELSEACT
SENDMSG 5 请放入对应材料

[@雪蚕丝]
#IF
!LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(81) 100
#ACT
MOV D10 $ITEMINFO[$PARAM(1)].GODITEM.Job
MOV D11 $ITEMINFO[$PARAM(1)].GODITEM.MinDC
INC D11 1
MOV D12 $ITEMINFO[$PARAM(1)].GODITEM.MaxDC
INC D12 1
MOV D13 $ITEMINFO[$PARAM(1)].GODITEM.ReduceAC
INC D13 2
MOV D14 $ITEMINFO[$PARAM(1)].GODITEM.ReduceMAC
INC D14 2
MOV D15 $ITEMINFO[$PARAM(1)].GODITEM.UseVal
MOV D16 $ITEMINFO[$PARAM(1)].GODITEM.Ruler
takem $PARAM(2)
UPGRADEUSERITEM $PARAM(1) 156 = $STR(D10)
UPGRADEUSERITEM $PARAM(1) 157 = $PARAM(3)
UPGRADEUSERITEM $PARAM(1) 158 = $USERNAME
UPGRADEUSERITEM $PARAM(1) 159 = $STR(D11)
UPGRADEUSERITEM $PARAM(1) 160 = $STR(D12)
UPGRADEUSERITEM $PARAM(1) 161 = $STR(D13)
UPGRADEUSERITEM $PARAM(1) 162 = $STR(D14)
UPGRADEUSERITEM $PARAM(1) 163 = $STR(D15)
UPGRADEUSERITEM $PARAM(1) 164 = $STR(D16)
UPGRADEUSERITEM $PARAM(1) 81 + 1
Sendmsg 22 恭喜玩家-%s成功开启归元一气炉，引动天地法则，绝世宝甲强化成功
#ELSEACT
SENDMSG 5 你的神器已经强化到顶级了

[@火蛛丝]

#IF
!LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(83) 10
#ACT
MOV D10 $ITEMINFO[$PARAM(1)].GODITEM.Job
MOV D11 $ITEMINFO[$PARAM(1)].GODITEM.MinDC
MOV D12 $ITEMINFO[$PARAM(1)].GODITEM.MaxDC
MOV D13 $ITEMINFO[$PARAM(1)].GODITEM.ReduceAC
MOV D14 $ITEMINFO[$PARAM(1)].GODITEM.ReduceMAC
MOV D15 $ITEMINFO[$PARAM(1)].GODITEM.UseVal
INC D15 1
MOV D16 $ITEMINFO[$PARAM(1)].GODITEM.Ruler
takem $PARAM(2)
UPGRADEUSERITEM $PARAM(1) 156 = $STR(D10)
UPGRADEUSERITEM $PARAM(1) 157 = $PARAM(3)
UPGRADEUSERITEM $PARAM(1) 158 = $USERNAME
UPGRADEUSERITEM $PARAM(1) 159 = $STR(D11)
UPGRADEUSERITEM $PARAM(1) 160 = $STR(D12)
UPGRADEUSERITEM $PARAM(1) 161 = $STR(D13)
UPGRADEUSERITEM $PARAM(1) 162 = $STR(D14)
UPGRADEUSERITEM $PARAM(1) 163 = $STR(D15)
UPGRADEUSERITEM $PARAM(1) 164 = $STR(D16)
UPGRADEUSERITEM $PARAM(1) 83 + 1
Sendmsg 22 恭喜玩家-%s成功开启归元一气炉，引动天地法则，绝世神甲强化成功
#ELSEACT
SENDMSG 5 你的神器已经强化到顶级了

[@千年寒铁]
#IF
!LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(81) 100
#ACT
MOV D10 $ITEMINFO[$PARAM(1)].GODITEM.Job
MOV D11 $ITEMINFO[$PARAM(1)].GODITEM.MinDC
INC D11 1
MOV D12 $ITEMINFO[$PARAM(1)].GODITEM.MaxDC
INC D12 1
MOV D13 $ITEMINFO[$PARAM(1)].GODITEM.ReduceAC
MOV D14 $ITEMINFO[$PARAM(1)].GODITEM.ReduceMAC
MOV D15 $ITEMINFO[$PARAM(1)].GODITEM.UseVal
MOV D16 $ITEMINFO[$PARAM(1)].GODITEM.Ruler
takem $PARAM(2)
UPGRADEUSERITEM $PARAM(1) 156 = $STR(D10)
UPGRADEUSERITEM $PARAM(1) 157 = $PARAM(3)
UPGRADEUSERITEM $PARAM(1) 158 = $USERNAME
UPGRADEUSERITEM $PARAM(1) 159 = $STR(D11)
UPGRADEUSERITEM $PARAM(1) 160 = $STR(D12)
UPGRADEUSERITEM $PARAM(1) 161 = $STR(D13)
UPGRADEUSERITEM $PARAM(1) 162 = $STR(D14)
UPGRADEUSERITEM $PARAM(1) 163 = $STR(D15)
UPGRADEUSERITEM $PARAM(1) 164 = $STR(D16)
UPGRADEUSERITEM $PARAM(1) 81 + 1
Sendmsg 22 恭喜玩家-%s成功开启归元一气炉，引动天地法则，绝世神兵强化成功
#ELSEACT
SENDMSG 5 你的神器已经强化到顶级了

[@紫金玄铁]

#IF
!LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(82) 100
#ACT
MOV D10 $ITEMINFO[$PARAM(1)].GODITEM.Job
MOV D11 $ITEMINFO[$PARAM(1)].GODITEM.MinDC
MOV D12 $ITEMINFO[$PARAM(1)].GODITEM.MaxDC
MOV D13 $ITEMINFO[$PARAM(1)].GODITEM.ReduceAC
INC D13 1
MOV D14 $ITEMINFO[$PARAM(1)].GODITEM.ReduceMAC
INC D14 1
MOV D15 $ITEMINFO[$PARAM(1)].GODITEM.UseVal
MOV D16 $ITEMINFO[$PARAM(1)].GODITEM.Ruler
takem $PARAM(2)
UPGRADEUSERITEM $PARAM(1) 156 = $STR(D10)
UPGRADEUSERITEM $PARAM(1) 157 = $PARAM(3)
UPGRADEUSERITEM $PARAM(1) 158 = $USERNAME
UPGRADEUSERITEM $PARAM(1) 159 = $STR(D11)
UPGRADEUSERITEM $PARAM(1) 160 = $STR(D12)
UPGRADEUSERITEM $PARAM(1) 161 = $STR(D13)
UPGRADEUSERITEM $PARAM(1) 162 = $STR(D14)
UPGRADEUSERITEM $PARAM(1) 163 = $STR(D15)
UPGRADEUSERITEM $PARAM(1) 164 = $STR(D16)
UPGRADEUSERITEM $PARAM(1) 82 + 1
Sendmsg 22 恭喜玩家-%s成功开启归元一气炉，引动天地法则，绝世神兵强化成功
#ELSEACT
SENDMSG 5 你的神器已经强化到顶级了

[@赤炎神铁]

#IF
!LARGE $ITEMINFO[$PARAM(1)].ITEMEXT(83) 10
#ACT
MOV D10 $ITEMINFO[$PARAM(1)].GODITEM.Job
MOV D11 $ITEMINFO[$PARAM(1)].GODITEM.MinDC
INC D11 1
MOV D12 $ITEMINFO[$PARAM(1)].GODITEM.MaxDC
INC D12 1
MOV D13 $ITEMINFO[$PARAM(1)].GODITEM.ReduceAC
MOV D14 $ITEMINFO[$PARAM(1)].GODITEM.ReduceMAC
MOV D15 $ITEMINFO[$PARAM(1)].GODITEM.UseVal
DEC D15 1
MOV D16 $ITEMINFO[$PARAM(1)].GODITEM.Ruler
takem $PARAM(2)
UPGRADEUSERITEM $PARAM(1) 156 = $STR(D10)
UPGRADEUSERITEM $PARAM(1) 157 = $PARAM(3)
UPGRADEUSERITEM $PARAM(1) 158 = $USERNAME
UPGRADEUSERITEM $PARAM(1) 159 = $STR(D11)
UPGRADEUSERITEM $PARAM(1) 160 = $STR(D12)
UPGRADEUSERITEM $PARAM(1) 161 = $STR(D13)
UPGRADEUSERITEM $PARAM(1) 162 = $STR(D14)
UPGRADEUSERITEM $PARAM(1) 163 = $STR(D15)
UPGRADEUSERITEM $PARAM(1) 164 = $STR(D16)
UPGRADEUSERITEM $PARAM(1) 83 + 1
Sendmsg 22 恭喜玩家-%s成功开启归元一气炉，引动天地法则，绝世神兵强化成功
#ELSEACT
SENDMSG 5 你的神器已经强化到顶级了

[@神兵预览]
#IF
EQUAL $PARAM(0) 1
#ACT
GOTO @打造神兵99
#IF
EQUAL $PARAM(0) 2
#ACT
GOTO @强化神兵99
#IF
EQUAL $PARAM(0) 3
#ACT
GOTO @命名神兵99
#IF
EQUAL $PARAM(0) 4
#ACT
GOTO @升级神兵99

[@命名神兵99]
#IF
EQUAL $ITEMINFO[$PARAM(1)].Stdmode 5
#ACT
GOTO @武器命名阅览
#ELSEACT
GOTO @衣服命名阅览

[@武器命名阅览]
#IF
!EQUAL $ITEMINFO[$PARAM(2)].NAME 太乙神符
#ACT
Sendmsg 5 你放入的材料错误，请放入太乙神符
break
#IF
!EQUAL $ITEMINFO[$PARAM(1)].GODITEM.GOD 0
#ACT
MOV D10 $ITEMINFO[$PARAM(1)].GODITEM.Job
MOV D11 $ITEMINFO[$PARAM(1)].GODITEM.MinDC
MOV D12 $ITEMINFO[$PARAM(1)].GODITEM.MaxDC
MOV D13 $ITEMINFO[$PARAM(1)].GODITEM.ReduceAC
MOV D14 $ITEMINFO[$PARAM(1)].GODITEM.ReduceMAC
MOV D15 $ITEMINFO[$PARAM(1)].GODITEM.UseVal
MOV D16 $ITEMINFO[$PARAM(1)].GODITEM.Ruler
SETPARAM 5 $STR(D10)
SETPARAM 6 $PARAM(3)
SETPARAM 7 $USERNAME
SETPARAM 8 $STR(D11)
SETPARAM 9 $STR(D12)
SETPARAM 10 $STR(D13)
SETPARAM 11 $STR(D14)
SETPARAM 12 $STR(D15)
SETPARAM 14 $STR(D16)
#ELSEACT
Sendmsg 5 普通武器不能命名，打造之后在来

[@衣服命名阅览]
#IF
!EQUAL $ITEMINFO[$PARAM(2)].NAME 太虚神符
#ACT
Sendmsg 5 你放入的材料错误，请放入太虚神符
break

#IF
!EQUAL $ITEMINFO[$PARAM(1)].GODITEM.GOD 0
#ACT
MOV D10 $ITEMINFO[$PARAM(1)].GODITEM.Job
MOV D11 $ITEMINFO[$PARAM(1)].GODITEM.MinDC
MOV D12 $ITEMINFO[$PARAM(1)].GODITEM.MaxDC
MOV D13 $ITEMINFO[$PARAM(1)].GODITEM.ReduceAC
MOV D14 $ITEMINFO[$PARAM(1)].GODITEM.ReduceMAC
MOV D15 $ITEMINFO[$PARAM(1)].GODITEM.UseVal
MOV D16 $ITEMINFO[$PARAM(1)].GODITEM.Ruler
SETPARAM 5 $STR(D10)
SETPARAM 6 $PARAM(3)
SETPARAM 7 $USERNAME
SETPARAM 8 $STR(D11)
SETPARAM 9 $STR(D12)
SETPARAM 10 $STR(D13)
SETPARAM 11 $STR(D14)
SETPARAM 12 $STR(D15)
#ELSEACT
Sendmsg 5 普通衣服不能命名，打造之后在来

[@打造神兵99]
#IF
EQUAL $ITEMINFO[$PARAM(1)].Stdmode 5
#ACT
GOTO @武器阅览
#ELSEACT
GOTO @衣服阅览
break

[@衣服阅览]
#IF
!EQUAL $ITEMINFO[$PARAM(2)].NAME 上古琉璃石
#ACT
Sendmsg 5 你放入的材料错误，请放入上古琉璃石
break
#IF
EQUAL $PARAM(4) 0
#ACT
MOV D10 0
MOV D11 $ITEMINFO[$PARAM(1)].DC
INC D11 20
MOV D12 $ITEMINFO[$PARAM(1)].DC2
INC D12 40
MOV D13 $ITEMINFO[$PARAM(1)].AC2
INC D13 28
MOV D15 $ITEMINFO[$PARAM(1)].MAC2
INC D15 22
MOV D14 5
#IF
EQUAL $PARAM(4) 1
#ACT
MOV D10 1
MOV D11 $ITEMINFO[$PARAM(1)].MC
INC D11 20
MOV D12 $ITEMINFO[$PARAM(1)].MC2
INC D12 44
MOV D13 $ITEMINFO[$PARAM(1)].AC2
INC D13 27
MOV D15 $ITEMINFO[$PARAM(1)].MAC2
INC D15 24
MOV D14 5
#IF
EQUAL $PARAM(4) 2
#ACT
MOV D10 2
MOV D11 $ITEMINFO[$PARAM(1)].SC
INC D11 20
MOV D12 $ITEMINFO[$PARAM(1)].SC2
INC D12 42
MOV D13 $ITEMINFO[$PARAM(1)].AC2
INC D13 30
MOV D15 $ITEMINFO[$PARAM(1)].MAC2
INC D15 22
MOV D14 5
#IF
EQUAL $PARAM(4) 3
#ACT
MOV D10 3
MOV D11 $ITEMINFO[$PARAM(1)].GC
INC D11 20
MOV D12 $ITEMINFO[$PARAM(1)].GC2
INC D12 30
MOV D13 $ITEMINFO[$PARAM(1)].AC2
INC D13 28
MOV D15 $ITEMINFO[$PARAM(1)].MAC2
INC D15 22
MOV D14 5
#IF
EQUAL $ITEMINFO[$PARAM(1)].GODITEM.GOD 0
#ACT
SETPARAM 5 $STR(D10)
SETPARAM 6 $PARAM(3)
SETPARAM 7 $USERNAME
SETPARAM 8 $STR(D11)
SETPARAM 9 $STR(D12)
SETPARAM 10 $STR(D13)
SETPARAM 11 $STR(D15)
SETPARAM 12 $STR(D14)
#ELSEACT
SENDMSG 5 你放入的已经是神器了
break

[@武器阅览]
#IF
!EQUAL $ITEMINFO[$PARAM(2)].NAME 上古七彩石
#ACT
Sendmsg 5 你放入的材料错误，请放入上古七彩石
break
#IF
!EQUAL $ITEMINFO[$PARAM(1)].GODITEM.GOD 0
#ACT
SENDMSG 5 你放入的已经是神器了
break
#IF
EQUAL $PARAM(4) 0
#ACT
MOV D10 0
MOV D11 $ITEMINFO[$PARAM(1)].DC
INC D11 50
MOV D12 $ITEMINFO[$PARAM(1)].DC2
INC D12 100
MOV D13 10
MOV D14 20
#IF
EQUAL $PARAM(4) 1
#ACT
MOV D10 1
MOV D11 $ITEMINFO[$PARAM(1)].MC
INC D11 40
MOV D12 $ITEMINFO[$PARAM(1)].MC2
INC D12 70
MOV D13 10
MOV D14 20
#IF
EQUAL $PARAM(4) 2
#ACT
MOV D10 2
MOV D11 $ITEMINFO[$PARAM(1)].SC
INC D11 50
MOV D12 $ITEMINFO[$PARAM(1)].SC2
INC D12 80
MOV D13 10
MOV D14 20
#IF
EQUAL $PARAM(4) 3
#ACT
MOV D10 3
MOV D11 $ITEMINFO[$PARAM(1)].GC
INC D11 50
MOV D12 $ITEMINFO[$PARAM(1)].GC2
INC D12 100
MOV D13 10
MOV D14 20
#IF
LARGE $RulerLevel 0
#ACT
SETPARAM 5 $STR(D10)
SETPARAM 6 $PARAM(3)
SETPARAM 7 $USERNAME
SETPARAM 8 $STR(D11)
SETPARAM 9 $STR(D12)
SETPARAM 10 $STR(D13)
SETPARAM 11 $STR(D13)
SETPARAM 12 $STR(D14)
SETPARAM 13 7
SETPARAM 14 1
break
#ELSEACT
SETPARAM 5 $STR(D10)
SETPARAM 6 $PARAM(3)
SETPARAM 7 $USERNAME
SETPARAM 8 $STR(D11)
SETPARAM 9 $STR(D12)
SETPARAM 10 $STR(D13)
SETPARAM 11 $STR(D13)
SETPARAM 12 $STR(D14)
SETPARAM 13 7

[@强化神兵99]
#IF
EQUAL $ITEMINFO[$PARAM(1)].GODITEM.GOD 0
#ACT
SENDMSG 5 你放入的不是神器，请打造之后再来强化
break
#IF
EQUAL $ITEMINFO[$PARAM(1)].Stdmode 5
#ACT
GOTO @强化武器阅览
#ELSEACT
GOTO @强化衣服阅览

[@强化武器阅览]
#IF
EQUAL $ITEMINFO[$PARAM(2)].NAME 千年寒铁
#ACT
MOV D10 $ITEMINFO[$PARAM(1)].GODITEM.Job
MOV D11 $ITEMINFO[$PARAM(1)].GODITEM.MinDC
INC D11 1
MOV D12 $ITEMINFO[$PARAM(1)].GODITEM.MaxDC
INC D12 1
MOV D13 $ITEMINFO[$PARAM(1)].GODITEM.ReduceAC
MOV D14 $ITEMINFO[$PARAM(1)].GODITEM.ReduceMAC
MOV D15 $ITEMINFO[$PARAM(1)].GODITEM.UseVal
MOV D16 $ITEMINFO[$PARAM(1)].GODITEM.Ruler
SETPARAM 5 $STR(D10)
SETPARAM 6 $PARAM(3)
SETPARAM 7 $USERNAME
SETPARAM 8 $STR(D11)
SETPARAM 9 $STR(D12)
SETPARAM 10 $STR(D13)
SETPARAM 11 $STR(D14)
SETPARAM 12 $STR(D15)
SETPARAM 14 $STR(D16)
break
#IF
EQUAL $ITEMINFO[$PARAM(2)].NAME 紫金玄铁
#ACT
MOV D10 $ITEMINFO[$PARAM(1)].GODITEM.Job
MOV D11 $ITEMINFO[$PARAM(1)].GODITEM.MinDC
MOV D12 $ITEMINFO[$PARAM(1)].GODITEM.MaxDC
MOV D13 $ITEMINFO[$PARAM(1)].GODITEM.ReduceAC
INC D13 1
MOV D14 $ITEMINFO[$PARAM(1)].GODITEM.ReduceMAC
INC D14 1
MOV D15 $ITEMINFO[$PARAM(1)].GODITEM.UseVal
MOV D16 $ITEMINFO[$PARAM(1)].GODITEM.Ruler
SETPARAM 5 $STR(D10)
SETPARAM 6 $PARAM(3)
SETPARAM 7 $USERNAME
SETPARAM 8 $STR(D11)
SETPARAM 9 $STR(D12)
SETPARAM 10 $STR(D13)
SETPARAM 11 $STR(D14)
SETPARAM 12 $STR(D15)
SETPARAM 14 $STR(D16)
break
#IF
EQUAL $ITEMINFO[$PARAM(2)].NAME 赤炎神铁
#ACT
MOV D10 $ITEMINFO[$PARAM(1)].GODITEM.Job
MOV D11 $ITEMINFO[$PARAM(1)].GODITEM.MinDC
INC D11 1
MOV D12 $ITEMINFO[$PARAM(1)].GODITEM.MaxDC
INC D12 1
MOV D13 $ITEMINFO[$PARAM(1)].GODITEM.ReduceAC
MOV D14 $ITEMINFO[$PARAM(1)].GODITEM.ReduceMAC
MOV D15 $ITEMINFO[$PARAM(1)].GODITEM.UseVal
DEC D15 1
MOV D16 $ITEMINFO[$PARAM(1)].GODITEM.Ruler
SETPARAM 5 $STR(D10)
SETPARAM 6 $PARAM(3)
SETPARAM 7 $USERNAME
SETPARAM 8 $STR(D11)
SETPARAM 9 $STR(D12)
SETPARAM 10 $STR(D13)
SETPARAM 11 $STR(D14)
SETPARAM 12 $STR(D15)
SETPARAM 14 $STR(D16)
break

[@强化衣服阅览]

#IF
EQUAL $ITEMINFO[$PARAM(2)].NAME 雪蚕丝
#ACT
MOV D10 $ITEMINFO[$PARAM(1)].GODITEM.Job
MOV D11 $ITEMINFO[$PARAM(1)].GODITEM.MinDC
INC D11 1
MOV D12 $ITEMINFO[$PARAM(1)].GODITEM.MaxDC
INC D12 1
MOV D13 $ITEMINFO[$PARAM(1)].GODITEM.ReduceAC
INC D13 2
MOV D14 $ITEMINFO[$PARAM(1)].GODITEM.ReduceMAC
INC D14 2
MOV D15 $ITEMINFO[$PARAM(1)].GODITEM.UseVal
MOV D16 $ITEMINFO[$PARAM(1)].GODITEM.Ruler
SETPARAM 5 $STR(D10)
SETPARAM 6 $PARAM(3)
SETPARAM 7 $USERNAME
SETPARAM 8 $STR(D11)
SETPARAM 9 $STR(D12)
SETPARAM 10 $STR(D13)
SETPARAM 11 $STR(D14)
SETPARAM 12 $STR(D15)
SETPARAM 14 $STR(D16)
break
#IF
EQUAL $ITEMINFO[$PARAM(2)].NAME 火蛛丝
#ACT
MOV D10 $ITEMINFO[$PARAM(1)].GODITEM.Job
MOV D11 $ITEMINFO[$PARAM(1)].GODITEM.MinDC
MOV D12 $ITEMINFO[$PARAM(1)].GODITEM.MaxDC
MOV D13 $ITEMINFO[$PARAM(1)].GODITEM.ReduceAC
MOV D14 $ITEMINFO[$PARAM(1)].GODITEM.ReduceMAC
MOV D15 $ITEMINFO[$PARAM(1)].GODITEM.UseVal
INC D15 1
MOV D16 $ITEMINFO[$PARAM(1)].GODITEM.Ruler
SETPARAM 5 $STR(D10)
SETPARAM 6 $PARAM(3)
SETPARAM 7 $USERNAME
SETPARAM 8 $STR(D11)
SETPARAM 9 $STR(D12)
SETPARAM 10 $STR(D13)
SETPARAM 11 $STR(D14)
SETPARAM 12 $STR(D15)
SETPARAM 14 $STR(D16)
break